home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_030_19xx_-_de_Disk_2_of_2_Side_B.d64 / seq-txt anzeiger (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  44 lines
  1. 8 printchr$(142)
  2. 10 print"[155][147]";:poke808,237:poke53280,0:poke53281,0  :
  3. 118 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  4. 120 print"         sequential file reader         "
  5. 122 print"      reads most sequential files
  6. 125 :
  7. 130 [153]"  which sequential
  8. 140 input"    file to read";b$
  9. 150 :
  10. 160 print"[147]"tab(13)"[155]your options -"
  11. 170 print"    <s>creen"spc(3)" <p>rinter"spc(3)" <q>uit"
  12. 190 getg$:ifg$=""then190
  13. 200 ifg$="q"then470
  14. 210 ifg$="s"goto240
  15. 220 ifg$<>"p"then190
  16. 230 open1,4,7:q=1
  17. 240 open5,8,5,b$+",s,r":gosub420
  18. 245 print"[147][155]":poke53280,0:poke53281,0
  19. 250 print"      [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  20. 260 print"        [208]ress  any key to pause,  "
  21. 270 print"        [208]ress  again to continue  "
  22. 280 print"        '[209]' ends program or loads "
  23. 290 print"      [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  24. 300 get#5,f$
  25. 310 ifst=0then330
  26. 320 ifst=64then440
  27. 330 ifq<>1thenprintf$;:goto350
  28. 340 print#1,f$;
  29. 350 geta$
  30. 360 ifa$<>""thengosub380
  31. 370 goto300
  32. 380 ifa$="q"then440
  33. 390 geta$:ifa$=""then390
  34. 400 ifa$="q"then440
  35. 410 return
  36. 420 close15:open15,8,15:input#15,d,e$,f,g
  37. 430 return
  38. 440 q=0:close1:close5:print"[147][155] [196]o you wish to load menu (y/n)?"
  39. 450 fora=1to10000:geta$:ifa$<>"y"anda$<>"n"thennext
  40. 460 ifa$="y"then480
  41. 470 poke808,237:print"[145]":goto4
  42. 480 print"[147]load"chr$(34)"menu"chr$(34)",8":print"run";
  43. 490 poke631,13:poke632,13:poke198,2:end
  44.